<!--#include file="./top.asp"-->

<%
	dim stu_class
	stu_class = request.querystring("name_class")
	dim rs_student, str_student
	set rs_student = server.CreateObject("Adodb.Recordset")
	str_student = "select * from student where stu_class = '" & stu_class & "'"
	
	rs_student.open str_student, conn, 1, 3
	
	dim reportid
	reportid = 0
	'response.Write str_student
	
	do while not rs_student.EOF
		reportid = reportid + 1
		rs_student.fields("stu_reportid") = stu_class & "0910B" & right("000"& cstr(reportid),3)
		response.Write rs_student.fields("stu_reportid") & "<br />"
		rs_student.update
		rs_student.movenext
  loop

%>
</body>
</html>
<%
rs_student.close
set rs_student = nothing
call CloseConn()
%>